  e0  l   k820309    �          24.0        �sOh                                                                                                          
       C:\Users\Matsumoto Hidehiko\Dropbox\Dynamic bank run\_JPEMacro_replication_files\numerical_solution\my_toolbox.f90 MY_TOOLBOX #         @                                                                #VEC    #OUTPUT              
 @                                                           
              &                                                     D                                               
       #         @                                                                #MATRIX    #OUTPUT              
 @                                                           
              &                   &                                                     D                                               
       #         @                                                                #MATRIX    #OUTPUT 	             
 @                                                           
              &                   &                   &                                                     D                                          	     
       #         @                                            
                    #VEC    #MEAN    #VAR    #STD              
 @                                                           
              &                                                     D                                               
                 D @                                             
                 D                                               
       #         @                                                                #X    #XI    #VAL    #INTERP              
 @                                                           
              &                                                     
                                                
                
                                                              
              &                                                     D                                               
       #         @                                                                #X    #XI    #Y    #YI    #VAL    #INTERP              
 @                                                           
              &                                                     
                                                
                
 @                                                           
              &                                                     
                                                
                
                                                              
 	             &                   &                                                     D                                               
       #         @                                                                #X    #XI    #Y    #YI    #VAL     #INTERP !             
 @                                                           
 
             &                                                     
                                                
                
 @                                                           
              &                                                     
                                                
                
                                                               
              &                   &                                                     D                                          !     
       #         @                                            "                    #X #   #XI $   #Y %   #YI &   #Z '   #ZI (   #VAL )   #INTERP *             
 @                                        #                   
              &                                                     
                                           $     
                
 @                                        %                   
              &                                                     
                                           &     
                
 @                                        '                   
              &                                                     
                                           (     
                
                                           )                   
              &                   &                   &                                                     D                                          *     
       #         @                                            +                    #X ,   #XI -   #Y .   #YI /   #Z 0   #ZI 1   #VAL 2   #INTERP 3             
 @                                        ,                   
              &                                                     
                                           -     
                
 @                                        .                   
              &                                                     
                                           /     
                
 @                                        0                   
              &                                                     
                                           1     
                
                                           2                   
              &                   &                   &                                                     D                                          3     
       #         @                                            4                 
   #X 5   #XI 6   #Y 7   #YI 8   #Z 9   #ZI :   #W ;   #WI <   #VAL =   #INTERP >             
 @                                        5                   
              &                                                     
                                           6     
                
 @                                        7                   
              &                                                     
                                           8     
                
 @                                        9                   
              &                                                     
                                           :     
                
 @                                        ;                   
              &                                                     
                                           <     
                
                                           =                   
              &                   &                   &                   &                                                     D                                          >     
       #         @                                            ?                 
   #X @   #XI A   #Y B   #YI C   #Z D   #ZI E   #W F   #WI G   #VAL H   #INTERP I             
 @                                        @                   
              &                                                     
                                           A     
                
 @                                        B                   
              &                                                     
                                           C     
                
 @                                        D                   
              &                                                     
                                           E     
                
 @                                        F                   
              &                                                     
                                           G     
                
                                           H                   
              &                   &                   &                   &                                                     D                                          I     
       #         @                                            J                    #NUM K   #MAX L   #MIN M   #DATA_VEC N   #BINS O   #COUNT P             
                                           K                     
                                           L     
                
                                           M     
                
 @                                        N                   
              &                                                    D                                          O                    
      p           5 � p        r K   n                                       1     5 � p        r K   n                                      1                                    D                                          P                     !    p          5 � p        r K       5 � p        r K                     %         @                                          Q                    
       #K R   #N S   #P T                                                       R                                                                S                                                                T     
       #         @                                            U                    #X V   #XI W   #VAL X   #DRV Y             
 @                                        V                   
 "             &                                                     
                                           W     
                
                                           X                   
 #             &                                                     D                                          Y     
       #         @                                            Z                    #X [   #Y \   #VALUE ]             
 @                                        [                   
 $             &                                                     
 @                                        \                   
 %             &                                                     D                                          ]     
       #         @                                            ^                    #MATRIX _   #X `   #Y a           D                                          _                   
 &              &                   &                                                     
                                           `                     
                                           a           #         @                                            b                    #Z c   #P d   #Q e   #PDF f              @                                       c     
                 D                                         d     
                 D                                         e     
                 D                                         f     
       %         @                                         g                    
       #A h   #B i   #F j   #TOL k             D                                         h     
                 D                                         i     
       "         �                                        j       
                                                        k     
          �   �      fn#fn    &  e       MEAN    �  �   a   MEAN%VEC      H   a   MEAN%OUTPUT    g  h       MEAN2    �  �   a   MEAN2%MATRIX    {  H   a   MEAN2%OUTPUT    �  h       MEAN3    +  �   a   MEAN3%MATRIX    �  H   a   MEAN3%OUTPUT    7  u       STD_DEV    �  �   a   STD_DEV%VEC    @  H   a   STD_DEV%MEAN    �  H   a   STD_DEV%VAR    �  H   a   STD_DEV%STD      t       LINEAR_INTERP     �  �   a   LINEAR_INTERP%X !      H   a   LINEAR_INTERP%XI "   h  �   a   LINEAR_INTERP%VAL %   �  H   a   LINEAR_INTERP%INTERP    D	  �       LINEAR_INTERP2 !   �	  �   a   LINEAR_INTERP2%X "   [
  H   a   LINEAR_INTERP2%XI !   �
  �   a   LINEAR_INTERP2%Y "   7  H   a   LINEAR_INTERP2%YI #     �   a   LINEAR_INTERP2%VAL &   +  H   a   LINEAR_INTERP2%INTERP &   s  �       LINEAR_INTERP2_UNEVEN (   �  �   a   LINEAR_INTERP2_UNEVEN%X )   �  H   a   LINEAR_INTERP2_UNEVEN%XI (   �  �   a   LINEAR_INTERP2_UNEVEN%Y )   f  H   a   LINEAR_INTERP2_UNEVEN%YI *   �  �   a   LINEAR_INTERP2_UNEVEN%VAL -   Z  H   a   LINEAR_INTERP2_UNEVEN%INTERP    �  �       LINEAR_INTERP3 !   4  �   a   LINEAR_INTERP3%X "   �  H   a   LINEAR_INTERP3%XI !     �   a   LINEAR_INTERP3%Y "   �  H   a   LINEAR_INTERP3%YI !   �  �   a   LINEAR_INTERP3%Z "   �  H   a   LINEAR_INTERP3%ZI #   �  �   a   LINEAR_INTERP3%VAL &   �  H   a   LINEAR_INTERP3%INTERP &   �  �       LINEAR_INTERP3_UNEVEN (   f  �   a   LINEAR_INTERP3_UNEVEN%X )   �  H   a   LINEAR_INTERP3_UNEVEN%XI (   B  �   a   LINEAR_INTERP3_UNEVEN%Y )   �  H   a   LINEAR_INTERP3_UNEVEN%YI (     �   a   LINEAR_INTERP3_UNEVEN%Z )   �  H   a   LINEAR_INTERP3_UNEVEN%ZI *   �  �   a   LINEAR_INTERP3_UNEVEN%VAL -   �  H   a   LINEAR_INTERP3_UNEVEN%INTERP      �       LINEAR_INTERP4 !   �  �   a   LINEAR_INTERP4%X "   ;  H   a   LINEAR_INTERP4%XI !   �  �   a   LINEAR_INTERP4%Y "     H   a   LINEAR_INTERP4%YI !   _  �   a   LINEAR_INTERP4%Z "   �  H   a   LINEAR_INTERP4%ZI !   ;  �   a   LINEAR_INTERP4%W "   �  H   a   LINEAR_INTERP4%WI #     �   a   LINEAR_INTERP4%VAL &   �  H   a   LINEAR_INTERP4%INTERP &   ;  �       LINEAR_INTERP4_UNEVEN (   �  �   a   LINEAR_INTERP4_UNEVEN%X )   p  H   a   LINEAR_INTERP4_UNEVEN%XI (   �  �   a   LINEAR_INTERP4_UNEVEN%Y )   L  H   a   LINEAR_INTERP4_UNEVEN%YI (   �  �   a   LINEAR_INTERP4_UNEVEN%Z )   (   H   a   LINEAR_INTERP4_UNEVEN%ZI (   p   �   a   LINEAR_INTERP4_UNEVEN%W )   !  H   a   LINEAR_INTERP4_UNEVEN%WI *   L!  �   a   LINEAR_INTERP4_UNEVEN%VAL -   ("  H   a   LINEAR_INTERP4_UNEVEN%INTERP    p"  �       HISTOGRAM    �"  H   a   HISTOGRAM%NUM    F#  H   a   HISTOGRAM%MAX    �#  H   a   HISTOGRAM%MIN #   �#  �   a   HISTOGRAM%DATA_VEC    j$  .  a   HISTOGRAM%BINS     �%  �   a   HISTOGRAM%COUNT    T&  m       BINOM    �&  H   a   BINOM%K    	'  H   a   BINOM%N    Q'  H   a   BINOM%P    �'  q       NUM_DRV    
(  �   a   NUM_DRV%X    �(  H   a   NUM_DRV%XI    �(  �   a   NUM_DRV%VAL    z)  H   a   NUM_DRV%DRV    �)  i       TRAPZ_INTEG    +*  �   a   TRAPZ_INTEG%X    �*  �   a   TRAPZ_INTEG%Y "   S+  H   a   TRAPZ_INTEG%VALUE    �+  j       RESIZE_2_REAL %   ,  �   a   RESIZE_2_REAL%MATRIX     �,  H   a   RESIZE_2_REAL%X     �,  H   a   RESIZE_2_REAL%Y    A-  n       NORMP    �-  H   a   NORMP%Z    �-  H   a   NORMP%P    ?.  H   a   NORMP%Q    �.  H   a   NORMP%PDF    �.  v       FMIN    E/  H   a   FMIN%A    �/  H   a   FMIN%B    �/  H      FMIN%F    0  H   a   FMIN%TOL 